home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
ab20
/
unarced
/
tex
/
texifylooknext.ced
< prev
next >
Wrap
Text File
|
1995-03-17
|
3KB
|
111 lines
/********************************************************************************/
/* ARexx program TeXifyLookNext V 1.01 (May 90) */
/* ( use with TeXify 1.04 or greater !! ) */
/* */
/* This program can only be used in conjunction */
/* with TeXify. After TeXify use */
/* Copyright 1990 TeXifyLookNext for getting further TeX error */
/* by Wolf-Juergen Faust reports. For a new TeXifyLookNext version */
/* Am Dorfgarten 10 call FIDO +(49) 6173 2544 (HST DS) or */
/* W-6000 Frankfurt 50 contact me. Don't spread this file without */
/* Germany the additional readme and Arexx files ! */
/* FIDO: 2:243/43.5 (Wolf Faust) */
/* UUCP: cbmvax.commodore.com!cbmehq!cbmger!venus!wfaust */
/* Tel: +(49) 69 5486556 */
/* */
/* Versions needed: */
/* ARexx >= V 1.10 (tested: 1.10, 1.12, 1.14) */
/* CEDPro>= V 2.00 (tested: 2.10, 2.11, 2.12) */
/********************************************************************************/
/*** Return ***/
cr = '0A'X
/*** program receives answers ***/
options results
/*** now lets get to business with CygnusEd ***/
address 'rexx_ced'
/*** is there a log file ??? ***/
if ~exists('t:tex.log') then do
okay1 "Ooops ! There is no errorfile !"
exit
end
/*** get number off errors done ***/
done = getclip("texlog")+1
/*** get path to main textfile ***/
path = getclip("texpath")
/*** get suffix of main textfile ***/
sfx = getclip("texsfx")
/*** search line with error description in t:tex.log ***/
rc = open('log','t:tex.log')
if rc = 0 then do
okay1 "ERROR ! Can't open existing errorfile !"
exit 5
end
do lin = 1 for done
logline = readln('log')
if eof('log') then do
/*** no more error found in file ***/
call close 'log'
okay1 "No more error found !"
call delete("t:tex.log")
exit 5
end
end
call close 'log'
parse var logline line pos filename cause
setclip("texlog",done)
strip (filename)
strip (cause)
if filename = "!" then do
'jumpto' line pos
okay1 "Ooops ! Error in unknown TeX source !"||cr||cause||cr||"Error in line:"||line||" pos:" pos
exit
end
/*** this part looks strange, but there maybe strange filenames !! ***/
'jump to file' filename
if result = 0 then do
if exists(path||filename) then do
'open new'
'open' path||filename
'jumpto' line pos
okay1 cause
exit 5
end
if exists(filename) then do
'open new'
'open' filename
'jumpto' line pos
okay1 cause
exit 5
end
'jump to file' filename||sfx
if result = 0 then do
if exists(path||filename||sfx) then do
'open new'
'open' path||filename||sfx
'jumpto' line pos
okay1 cause
exit 5
end
if exists(filename||sfx) then do
'open new'
'open' path||filename||sfx
'jumpto' line pos
okay1 cause
exit 5
end
'jumpto' line pos
okay1 "Ooops ! Error in "||filename||" TeX file !"||cr||cause||cr||"Error in line:"||line||" pos:" pos
exit 5
end
end
'jumpto' line pos
okay1 cause